home *** CD-ROM | disk | FTP | other *** search
/ Elite European Models 1 / Elite European Models 1.iso / pc / elite.dxr / 00108.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  1.3 KB  |  26 lines
  1. global gPictSprite, gCenterH, gCenterV, gSpriteWidth, gSpriteHeight, gDistance
  2.  
  3. on exitFrame
  4.   if the stretch of sprite gPictSprite = 0 then
  5.     set userH to the mouseH
  6.     set userV to the mouseV
  7.     set PICThModifier to ((userH < 20) - ((userH > 620) and (userV < the top of sprite 3))) * gDistance
  8.     set PICTvModifier to ((userV < 20) - ((userV > (the top of sprite 3 - 21)) and (userV < the top of sprite 3))) * gDistance
  9.     set newH to checkRange(the locH of sprite gPictSprite + PICThModifier, 640 - gSpriteWidth, gSpriteWidth)
  10.     set newV to checkRange(the locV of sprite gPictSprite + PICTvModifier, the top of sprite 3 - gSpriteHeight, gSpriteHeight)
  11.     set the locV of sprite gPictSprite to newV
  12.     set the locH of sprite gPictSprite to newH
  13.     updateStage()
  14.     set PICThModifier to PICThModifier / gDistance * 10
  15.     set PICTvModifier to PICTvModifier / gDistance * 10
  16.     set newCursor to "Cursor " & PICThModifier & "," & PICTvModifier
  17.     set the cursor of sprite gPictSprite to [the number of member newCursor, the number of member (newCursor & " Mask")]
  18.     puppetSprite(gPictSprite, 1)
  19.     go(the frame)
  20.     puppetSprite(gPictSprite, 0)
  21.   else
  22.     set the cursor of sprite gPictSprite to [the number of member "Cursor 1,1", the number of member "Cursor 1,1 Mask"]
  23.     go(the frame)
  24.   end if
  25. end
  26.